home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
426-450
/
disk_429
/
fixcli
/
fixcli.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-05-06
|
5KB
|
142 lines
#ifdef THIS_IS_A_COMMENT
FixCLI by Paul Kienitz (originally just called FixCD, first version
12/11/88). Does a CD if we're not really CD'ed anywhere deliberately;
i.e. CD'ed to root of boot disk by default. It also copies the
Workbench's or another CLI's command path if we have no path. And it
fills in your pr_WindowPtr if your current window is on a custom screen.
Intended for use in Shell-Startup scripts for use with PopCLI, DMouse, and
other programs that can start up a CLI in a non-CLI environment, e.g.
MyMenu. Public domain. Do anything you want with it, as long as you
don't do it in the middle of the street and frighten the horses.
1/16/89: oops! Made it not waste a Lock (and forget to UnLock!) when it's
not going to do anything. Added fancier error message.
Next day: made it default to present assignment of SYS:, rather than
original boot disk. Made it set WARN code when it acts, so that Shell-
Startup can know that it has to run PATH. Decided not to try to remove
need for saying CD "" to fix the prompt afterwards, because you have to do
that anyway with a Workbench launched Shell that doesn't need FixCD.
9/28/89: added path copying, changed name from FixCD to FixPathCD.
Dublicating the Workbench's path is much quicker than using a Path command
in response to a WARN return. Also added copying of argument string into
SetName. NOTE that you don't allocate a new buffer for a new SetName; the
one it's using is on the CLI's own stack. It's 88 bytes long. Wrote doc
file FixPathCD.readme.
10/3/89: added feature to set pr_WindowPtr when current window is not on
the Workbench screen. This is needed by the current version of CLImax.
This feature will probably be removed here when CLImax is fixed. On
second thought, this feature is useful with NewShell CON:S*/blah too.
Also added thing so that if it can't find the Workbench's path it looks
for a CLI's path. Changed the name to FixCLI. Then added #ifdef WINDOWPTR
to control whether it has the WindowPtr feature or not.
11/21/90: recompiled with aztec C 5.0 (cleaned up some sloppy type
mismatches); sized reduced by (gasp) 2.5 percent
#endif
#include <libraries/dosextens.h>
#include <Paul.h>
#ifdef WINDOWPTR
#include <exec/exec.h>
#include <intuition/intuition.h>
#include <devices/conunit.h>
void FixWindowPtr(me) struct Process *me;
{
import long dos_packet(); /* a Manx convenience */
struct InfoData *ind;
adr cont = me->pr_ConsoleTask;
if (cont && (ind = NewP(struct InfoData))) {
if (dos_packet(cont, ACTION_DISK_INFO, (long) ind >> 2)) {
register struct Window *w = (adr) ind->id_VolumeNode;
register struct Screen *s = w->WScreen;
if ((s->Flags & SCREENTYPE) == CUSTOMSCREEN)
me->pr_WindowPtr = (APTR) w;
}
Free(struct InfoData, ind);
}
}
#endif
BPTR FindPath(taskname) str taskname;
{
struct Process *teacher = (adr) FindTask(taskname);
struct CommandLineInterface *teachcli;
register BPTR *wext, *mext, *lastmext;
BPTR newpath = 0;
if (!teacher) return 0;
lastmext = &newpath;
if (!(teachcli = gbip(teacher->pr_CLI))) return 0;
for (wext = gbip(teachcli->cli_CommandDir); wext; wext = gbip(*wext)) {
if (!(mext = AllocP(3 * sizeof(BPTR))))
break;
*lastmext = (long) (mext + 1) >> 2;
lastmext = mext + 1;
mext[2] = DupLock(wext[1]);
mext[1] = 0;
*mext = 3L * sizeof(BPTR); /* size for DOS memory freer */
}
return newpath;
}
long _main(alen, aptr) long alen; char *aptr;
{
register struct Process *me = ThisProcess();
register BPTR newlock, out = Output();
str setname;
struct CommandLineInterface *cle = gbip(me->pr_CLI);
long ret = 0;
#ifdef WINDOWPTR
FixWindowPtr(me);
#endif
while (alen && aptr[alen - 1] <= ' ') aptr[--alen] = 0;
if (*aptr == '"') {
if (aptr[alen - 1] == '"') aptr[--alen] = 0;
aptr++;
}
if (!me->pr_CurrentDir) {
if (!alen) aptr = "SYS:";
if (!(newlock = RLock(aptr))) {
Write(out, "\nFixCLI couldn't find directory \"", 33L);
Write(out, aptr, alen);
Write(out, "\".\n", 3L);
me->pr_Result2 = ERROR_OBJECT_NOT_FOUND;
return 10; /* failure */
}
me->pr_CurrentDir = newlock;
if (cle) {
short len = strlen(aptr);
if (len > 87) len = 87; /* setname buffer is 88 bytes */
setname = gbip(cle->cli_SetName);
*setname = len;
strncpy(setname + 1, aptr, len);
}
ret = 5;
}
if (cle && !cle->cli_CommandDir) {
register BPTR path = FindPath("Workbench");
if (!path) path = FindPath("Initial CLI");
if (!path) path = FindPath("AmigaShell");
if (!path) path = FindPath("New CLI");
if (!path) path = FindPath("Background CLI");
cle->cli_CommandDir = path;
ret = 5;
}
me->pr_Result2 = 0;
return ret;
}